home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
util
/
wb
/
Picticon1_4.lha
/
Picticon
/
Source
/
mod
/
gadgets.e
< prev
next >
Wrap
Text File
|
1995-06-07
|
2KB
|
62 lines
OPT MODULE
OPT EXPORT
MODULE 'gadtools','libraries/gadtools'
MODULE 'intuition/intuition','intuition/gadgetclass'
MODULE 'graphics/gfx','graphics/rastport'
MODULE 'mod/macros'
PROC createslider(gad,x,y,w,h,id,min,max,level,vis,orient=LORIENT_HORIZ)
gad:=CreateGadgetA(SLIDER_KIND,gad,
[x,y,w,h,0,0,id,0,vis,0]:newgadget,
[GTSL_MIN,min,GTSL_MAX,max,GTSL_LEVEL,level,
PGA_FREEDOM,orient,
NWAY_KIND,TRUE,GTVI_NWTAGS,TRUE,NIL,NIL])
ENDPROC gad,gad
PROC createbool(gad,x,y,w,h,id,string,textattr,vis)
gad:=CreateGadgetA(BUTTON_KIND,gad,
[x,y,w,h,string,textattr,id,0,vis,0]:newgadget,[NIL,NIL])
ENDPROC gad,gad
PROC drawbevelbox(vis,rast:PTR TO rastport,x,y,w,h,ft=0,rec=0,pencol=-1)
DEF olddm,oldafpt,oldafptsz
DEF inw,inh
IF rast=0 THEN RETURN
olddm:=GetDrMd(rast)
oldafpt:=rast.areaptrn
oldafptsz:=rast.areaptsz
IF ft=4 THEN ft:=0
IF pencol>=0
SELECT ft
CASE 1;inw:=2;inh:=1
CASE 2;inw:=4;inh:=2
CASE 3;inw:=6;inh:=3
DEFAULT;inw:=1;inh:=1
ENDSELECT
SetAPen(rast,pencol)
IF (((w-inw-inw)>0) AND ((h-inh-inh)>0)) THEN RectFill(rast,x+inw,y+inh,x+w-1-inw,y+h-1-inh)
ENDIF
SetDrMd(rast,RP_JAM2)
IF rec=0
DrawBevelBoxA(rast,x,y,w,h,[GT_VISUALINFO,vis,
GTBB_FRAMETYPE,ft,NIL,NIL])
ELSE
DrawBevelBoxA(rast,x,y,w,h,[GT_VISUALINFO,vis,
GTBB_RECESSED,rec,GTBB_FRAMETYPE,ft,NIL,NIL])
ENDIF
SetDrMd(rast,olddm)
setafpt(rast,oldafpt,oldafptsz)
ENDPROC
PROC bottomedge(win:PTR TO window) IS (win.height-win.borderbottom)
PROC rightedge(win:PTR TO window) IS (win.width-win.borderright)
PROC insidewidth(win:PTR TO window) IS (win.width-win.borderleft-win.borderright)
PROC insideheight(win:PTR TO window) IS (win.height-win.bordertop-win.borderbottom)
PROC disablegadget(x,win);IF ((x) AND (win)) THEN Gt_SetGadgetAttrsA(x,win,NIL,[GA_DISABLED,TRUE,NIL,NIL]);ENDPROC
PROC enablegadget(x,win);IF ((x) AND (win)) THEN Gt_SetGadgetAttrsA(x,win,NIL,[GA_DISABLED,FALSE,NIL,NIL]);ENDPROC
PROC extractmessage(mes:PTR TO intuimessage);RETURN mes.class,mes.iaddress,mes.code;ENDPROC